home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Mike's Externals.cpt / Mike's Externals / card_5813.txt < prev    next >
Text File  |  1990-02-22  |  3KB  |  91 lines
  1. -- card: 5813 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2764
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=280 top=55 right=79 bottom=347
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: TryMe
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   repeat 20 times
  23.     put the random of 510 into x1
  24.     put the random of 510 into x2
  25.     if x2<x1 then
  26.       put x2 into temp
  27.       put x1 into x2
  28.       put temp into x1
  29.     end if
  30.     put the random of 340 into y1
  31.     put the random of 340 into y2
  32.     if y2<y1 then
  33.       put y2 into temp
  34.       put y1 into y2
  35.       put temp into y1
  36.     end if
  37.     put the random of 2 into c
  38.     put "oval" into shape
  39.     qDraw x1,y1,x2,y2,paint,shape
  40.   end repeat
  41.   repeat 20 times
  42.     put the random of 510 into x1
  43.     put the random of 510 into x2
  44.     if x2<x1 then
  45.       put x2 into temp
  46.       put x1 into x2
  47.       put temp into x1
  48.     end if
  49.     put the random of 340 into y1
  50.     put the random of 340 into y2
  51.     if y2<y1 then
  52.       put y2 into temp
  53.       put y1 into y2
  54.       put temp into y1
  55.     end if
  56.     put the random of 2 into c
  57.     qDraw x1,y1,x2,y2,invert,shape
  58.   end repeat
  59.   play harpsichord
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part contents for background part 17
  65. ----- text -----
  66. qDraw
  67.  
  68. -- part contents for background part 18
  69. ----- text -----
  70. Mike Gleason Jr.
  71.  
  72. -- part contents for background part 19
  73. ----- text -----
  74. XCMD
  75.  
  76. -- part contents for background part 21
  77. ----- text -----
  78. This performs quick and dirty quickdraw procedures.  It's handy for primitive animation and cheap effects.  You need to supply all the parameters, with the first for as coordinates.  Type can be "frame","invert","paint" or "erase".  Shape can be either "oval" or "rect".  If you have read Michael Swain's column about the best way to draw a circle, use this instead.  You can draw the circle instantaneously!  You don't have to worry about selecting the tool and telling hypercard to drag and all that.  Note that the effects are not permanent; They will go away when you exit the card.  You can also draw right over fields and buttons!  The buttons and fields will return to normal when you select them.  Do the tryme button.
  79.  
  80.  
  81.  
  82. -- part contents for background part 20
  83. ----- text -----
  84. qdraw top,left,right,bottom,type,shape
  85.  
  86. -- part contents for background part 23
  87. ----- text -----
  88. qDraw 10,50,100,100,frame,rect
  89. qDraw 10,50,100,100,invert,oval
  90. qDraw 10,50,100,100,frame,oval
  91.